home *** CD-ROM | disk | FTP | other *** search
/ Dictionaries & Language / Dictionaries and Language (Chestnut CD-ROM) (1993).iso / word_p / pcwriteb / psdown.ini < prev    next >
Encoding:
Text File  |  1989-09-20  |  20.7 KB  |  862 lines
  1. 45 dict dup begin
  2. /FontType 3 def
  3. /FontMatrix[.001 0 0 .001 0 0] def
  4. /FontBBox[00 0 1000 1000] def
  5. /Encoding 256 array def
  6. 0 1 255 {Encoding exch /.notdef put} for
  7. Encoding
  8. dup (1) 0 get /G176 put
  9. dup (2) 0 get /G177 put
  10. dup (3) 0 get /G178 put
  11. dup (a) 0 get /G179 put
  12. dup (b) 0 get /G180 put
  13. dup (c) 0 get /G181 put
  14. dup (d) 0 get /G182 put
  15. dup (e) 0 get /G183 put
  16. dup (f) 0 get /G184 put
  17. dup (g) 0 get /G185 put
  18. dup (h) 0 get /G186 put
  19. dup (i) 0 get /G187 put
  20. dup (j) 0 get /G188 put
  21. dup (k) 0 get /G189 put
  22. dup (l) 0 get /G190 put
  23. dup (m) 0 get /G191 put
  24. dup (n) 0 get /G192 put
  25. dup (o) 0 get /G193 put
  26. dup (p) 0 get /G194 put
  27. dup (q) 0 get /G195 put
  28. dup (r) 0 get /G196 put
  29. dup (s) 0 get /G197 put
  30. dup (t) 0 get /G198 put
  31. dup (u) 0 get /G199 put
  32. dup (v) 0 get /G200 put
  33. dup (w) 0 get /G201 put
  34. dup (x) 0 get /G202 put
  35. dup (y) 0 get /G203 put
  36. dup (z) 0 get /G204 put
  37. dup (A) 0 get /G205 put
  38. dup (B) 0 get /G206 put
  39. dup (C) 0 get /G207 put
  40. dup (D) 0 get /G208 put
  41. dup (E) 0 get /G209 put
  42. dup (F) 0 get /G210 put
  43. dup (G) 0 get /G211 put
  44. dup (H) 0 get /G212 put
  45. dup (I) 0 get /G213 put
  46. dup (J) 0 get /G214 put
  47. dup (K) 0 get /G215 put
  48. dup (L) 0 get /G216 put
  49. dup (M) 0 get /G217 put
  50. dup (N) 0 get /G218 put
  51. dup (O) 0 get /G219 put
  52. dup (P) 0 get /G220 put
  53. dup (Q) 0 get /G221 put
  54. dup (R) 0 get /G222 put
  55. dup (S) 0 get /G223 put
  56. dup (T) 0 get /G169 put
  57. dup (V) 0 get /G372 put
  58. (U) 0 get /G376 put
  59. /Metrics 52 dict def
  60. Metrics begin
  61. /.notdef 0 def
  62. /G176 1000 def
  63. /G177 1000 def
  64. /G178 1000 def
  65. /G179 1000 def
  66. /G180 1000 def
  67. /G181 1000 def
  68. /G182 1000 def
  69. /G183 1000 def
  70. /G184 1000 def
  71. /G185 1000 def
  72. /G186 1000 def
  73. /G187 1000 def
  74. /G188 1000 def
  75. /G189 1000 def
  76. /G190 1000 def
  77. /G191 1000 def
  78. /G192 1000 def
  79. /G193 1000 def
  80. /G194 1000 def
  81. /G195 1000 def
  82. /G196 1000 def
  83. /G197 1000 def
  84. /G198 1000 def
  85. /G199 1000 def
  86. /G200 1000 def
  87. /G201 1000 def
  88. /G202 1000 def
  89. /G203 1000 def
  90. /G204 1000 def
  91. /G205 1000 def
  92. /G206 1000 def
  93. /G207 1000 def
  94. /G208 1000 def
  95. /G209 1000 def
  96. /G210 1000 def
  97. /G211 1000 def
  98. /G212 1000 def
  99. /G213 1000 def
  100. /G214 1000 def
  101. /G215 1000 def
  102. /G216 1000 def
  103. /G217 1000 def
  104. /G218 1000 def
  105. /G219 1000 def
  106. /G220 1000 def
  107. /G221 1000 def
  108. /G222 1000 def
  109. /G223 1000 def
  110. /G169 1000 def
  111. /G372 1000 def
  112. /G376 1000 def
  113. end
  114. /BBox 52 dict def
  115. BBox begin
  116. /.notdef[0 0 0 0] def
  117. /G176[0 0 1000 1000] def
  118. /G177[0 0 1000 1000] def
  119. /G178[0 0 1000 1000] def
  120. /G179[0 0 1000 1000] def
  121. /G180[0 0 1000 1000] def
  122. /G181[0 0 1000 1000] def
  123. /G182[0 0 1000 1000] def
  124. /G183[0 0 1000 1000] def
  125. /G184[0 0 1000 1000] def
  126. /G185[0 0 1000 1000] def
  127. /G186[0 0 1000 1000] def
  128. /G187[0 0 1000 1000] def
  129. /G188[0 0 1000 1000] def
  130. /G189[0 0 1000 1000] def
  131. /G190[0 0 1000 1000] def
  132. /G191[0 0 1000 1000] def
  133. /G192[0 0 1000 1000] def
  134. /G193[0 0 1000 1000] def
  135. /G194[0 0 1000 1000] def
  136. /G195[0 0 1000 1000] def
  137. /G196[0 0 1000 1000] def
  138. /G197[0 0 1000 1000] def
  139. /G198[0 0 1000 1000] def
  140. /G199[0 0 1000 1000] def
  141. /G200[0 0 1000 1000] def
  142. /G201[0 0 1000 1000] def
  143. /G202[0 0 1000 1000] def
  144. /G203[0 0 1000 1000] def
  145. /G204[0 0 1000 1000] def
  146. /G205[0 0 1000 1000] def
  147. /G206[0 0 1000 1000] def
  148. /G207[0 0 1000 1000] def
  149. /G208[0 0 1000 1000] def
  150. /G209[0 0 1000 1000] def
  151. /G210[0 0 1000 1000] def
  152. /G211[0 0 1000 1000] def
  153. /G212[0 0 1000 1000] def
  154. /G213[0 0 1000 1000] def
  155. /G214[0 0 1000 1000] def
  156. /G215[0 0 1000 1000] def
  157. /G216[0 0 1000 1000] def
  158. /G217[0 0 1000 1000] def
  159. /G218[0 0 1000 1000] def
  160. /G219[0 0 1000 1000] def
  161. /G220[0 0 1000 1000] def
  162. /G221[0 0 1000 1000] def
  163. /G222[0 0 1000 1000] def
  164. /G223[0 0 1000 1000] def
  165. /G169[0 0 1000 1000] def
  166. /G372[0 0 1000 1000] def
  167. /G376[0 0 1000 1000] def
  168. end
  169. /CharacterDefs 52 dict def
  170. CharacterDefs begin
  171. /.notdef {} def
  172. /G176
  173. {newpath 500 0 moveto 500 1000 lineto
  174. 1000 setlinewidth
  175. stroke} def
  176. /G177
  177. {newpath 500 0 moveto 500 1000 lineto
  178. 1000 setlinewidth
  179. stroke} def
  180. /G178
  181. {newpath 500 0 moveto 500 1000 lineto
  182. 1000 setlinewidth
  183. stroke} def
  184. /G179
  185. {newpath 500 0 moveto 500 1000 lineto
  186. 20 setlinewidth
  187. stroke} def
  188. /G180
  189. {newpath 500 0 moveto 500 1000 lineto
  190. 500 500 moveto
  191. 0 500 lineto
  192. 20 setlinewidth
  193. stroke} def
  194. /G181
  195. {newpath 500 0 moveto 500 1000 lineto
  196. 500 460 moveto
  197. 0 460 lineto
  198. 500 540 moveto
  199. 0 540 lineto
  200. 20 setlinewidth
  201. stroke} def
  202. /G182
  203. {newpath 540 0 moveto 540 1000 lineto
  204. 460 0 moveto 460 1000 lineto
  205. 460 500 moveto
  206. 0 500 lineto
  207. 20 setlinewidth
  208. stroke} def
  209. /G183
  210. {newpath 540 0 moveto 540 500 lineto
  211. 460 0 moveto 460 500 lineto
  212. 530 500 moveto
  213. 0 500 lineto
  214. 20 setlinewidth
  215. stroke} def
  216. /G184
  217. {newpath 500 0 moveto 500 540 lineto
  218. 500 460 moveto
  219. 0 460 lineto
  220. 500 540 moveto
  221. 0 540 lineto
  222. 20 setlinewidth
  223. stroke} def
  224. /G185
  225. {newpath 540 0 moveto 540 1000 lineto
  226. 460 0 moveto 460 1000 lineto
  227. 460 540 moveto
  228. 0 540 lineto
  229. 460 460 moveto
  230. 0 460 lineto
  231. 20 setlinewidth
  232. stroke} def
  233. /G186
  234. {newpath 540 0 moveto 540 1000 lineto
  235. 460 0 moveto 460 1000 lineto
  236. 20 setlinewidth
  237. stroke} def
  238. /G187
  239. {newpath 460 0 moveto 460 460 lineto
  240. 0 460 lineto
  241. 540 0 moveto 540 540 lineto
  242. 0 540 lineto
  243. 20 setlinewidth
  244. stroke} def
  245. /G188
  246. {newpath 0 460 moveto 540 460 lineto
  247. 540 1000 lineto
  248. 0 540 moveto 460 540 lineto
  249. 460 1000 lineto
  250. 20 setlinewidth
  251. stroke} def
  252. /G189
  253. {newpath 0 500 moveto 540 500 lineto
  254. 460 500 moveto
  255. 460 1000 lineto
  256. 540 500 moveto
  257. 540 1000 lineto
  258. 20 setlinewidth
  259. stroke} def
  260. /G190
  261. {newpath 0 460 moveto 500 460 lineto
  262. 500 1000 lineto
  263. 0 540 moveto 500 540 lineto
  264. 20 setlinewidth
  265. stroke} def
  266. /G191
  267. {newpath 500 0 moveto 500 500 lineto
  268. 0 500 lineto
  269. 20 setlinewidth
  270. stroke} def
  271. /G192
  272. {newpath 500 1000 moveto 500 500 lineto
  273. 1000 500 lineto
  274. 20 setlinewidth
  275. stroke} def
  276. /G193
  277. {newpath 0 500 moveto 1000 500 lineto
  278. 500 500 moveto 500 1000 lineto
  279. 20 setlinewidth
  280. stroke} def
  281. /G194
  282. {newpath 0 500 moveto 1000 500 lineto
  283. 500 500 moveto 500 0 lineto
  284. 20 setlinewidth
  285. stroke} def
  286. /G195
  287. {newpath 500 0 moveto 500 1000 lineto
  288. 500 500 moveto 1000 500 lineto
  289. 20 setlinewidth
  290. stroke} def
  291. /G196
  292. {newpath 0 500 moveto 1000 500 lineto
  293. 20 setlinewidth
  294. stroke} def
  295. /G197
  296. {newpath 0 500 moveto 1000 500 lineto
  297. 500 0 moveto 500 1000 lineto
  298. 20 setlinewidth
  299. stroke} def
  300. /G198
  301. {newpath 500 0 moveto 500 1000 lineto
  302. 500 460 moveto
  303. 1000 460 lineto
  304. 500 540 moveto
  305. 1000 540 lineto
  306. 20 setlinewidth
  307. stroke} def
  308. /G199
  309. {newpath 460 0 moveto 460 1000 lineto
  310. 540 0 moveto 540 1000 lineto
  311. 540 500 moveto
  312. 1000 500 lineto
  313. 20 setlinewidth
  314. stroke} def
  315. /G200
  316. {newpath 460 1000 moveto 460 460 lineto
  317. 1000 460 lineto
  318. 540 1000 moveto 540 540 lineto
  319. 1000 540 lineto
  320. 20 setlinewidth
  321. stroke} def
  322. /G201
  323. {newpath 460 0 moveto 460 540 lineto
  324. 1000 540 lineto
  325. 540 0 moveto 540 460 lineto
  326. 1000 460 lineto
  327. 20 setlinewidth
  328. stroke} def
  329. /G202
  330. {newpath 0 460 moveto 1000 460 lineto
  331. 0 540 moveto 1000 540 lineto
  332. 460 540 moveto 460 1000 lineto
  333. 540 540 moveto 540 1000 lineto
  334. 20 setlinewidth
  335. stroke} def
  336. /G203
  337. {newpath 0 460 moveto 1000 460 lineto
  338. 0 540 moveto 1000 540 lineto
  339. 460 460 moveto 460 0 lineto
  340. 540 460 moveto 540 0 lineto
  341. 20 setlinewidth
  342. stroke} def
  343. /G204
  344. {newpath 460 0 moveto 460 1000 lineto
  345. 540 0 moveto 540 1000 lineto
  346. 540 540 moveto
  347. 1000 540 lineto
  348. 540 460 moveto
  349. 1000 460 lineto
  350. 20 setlinewidth
  351. stroke} def
  352. /G205
  353. {newpath 0 460 moveto 1000 460 lineto
  354. 0 540 moveto 1000 540 lineto
  355. 20 setlinewidth
  356. stroke} def
  357. /G206
  358. {newpath 0 460 moveto 1000 460 lineto
  359. 0 540 moveto 1000 540 lineto
  360. 460 0 moveto 460 1000 lineto
  361. 540 0 moveto 540 1000 lineto
  362. 20 setlinewidth
  363. stroke} def
  364. /G207
  365. {newpath 0 460 moveto 1000 460 lineto
  366. 0 540 moveto 1000 540 lineto
  367. 500 540 moveto 500 1000 lineto
  368. 20 setlinewidth
  369. stroke} def
  370. /G208
  371. {newpath 0 500 moveto 1000 500 lineto
  372. 460 500 moveto 460 1000 lineto
  373. 540 500 moveto 540 1000 lineto
  374. 20 setlinewidth
  375. stroke} def
  376. /G209
  377. {newpath 0 460 moveto 1000 460 lineto
  378. 0 540 moveto 1000 540 lineto
  379. 500 460 moveto 500 0 lineto
  380. 20 setlinewidth
  381. stroke} def
  382. /G210
  383. {newpath 0 500 moveto 1000 500 lineto
  384. 460 500 moveto 460 0 lineto
  385. 540 500 moveto 540 0 lineto
  386. 20 setlinewidth
  387. stroke} def
  388. /G211
  389. {newpath 460 500 moveto 1000 500 lineto
  390. 460 500 moveto 460 1000 lineto
  391. 540 500 moveto 540 1000 lineto
  392. 20 setlinewidth
  393. stroke} def
  394. /G212
  395. {newpath 500 460 moveto 1000 460 lineto
  396. 500 540 moveto 1000 540 lineto
  397. 500 460 moveto 500 1000 lineto
  398. 20 setlinewidth
  399. stroke} def
  400. /G213
  401. {newpath 500 460 moveto 1000 460 lineto
  402. 500 540 moveto 1000 540 lineto
  403. 500 540 moveto 500 0 lineto
  404. 20 setlinewidth
  405. stroke} def
  406. /G214
  407. {newpath 460 500 moveto 1000 500 lineto
  408. 460 500 moveto 460 0 lineto
  409. 540 500 moveto 540 0 lineto
  410. 20 setlinewidth
  411. stroke} def
  412. /G215
  413. {newpath 0 500 moveto 1000 500 lineto
  414. 460 0 moveto 460 1000 lineto
  415. 540 0 moveto 540 1000 lineto
  416. 20 setlinewidth
  417. stroke} def
  418. /G216
  419. {newpath 0 460 moveto 1000 460 lineto
  420. 0 540 moveto 1000 540 lineto
  421. 500 0 moveto 500 1000 lineto
  422. 20 setlinewidth
  423. stroke} def
  424. /G217
  425. {newpath 0 500 moveto 500 500 lineto
  426. 500 1000 lineto
  427. 20 setlinewidth
  428. stroke} def
  429. /G218
  430. {newpath 500 0 moveto 500 500 lineto
  431. 1000 500 lineto
  432. 20 setlinewidth
  433. stroke} def
  434. /G219
  435. {newpath 500 0 moveto 500 1000 lineto
  436. 1000 setlinewidth
  437. stroke} def
  438. /G220
  439. {newpath 500 0 moveto 500 500 lineto
  440. 1000 setlinewidth
  441. stroke} def
  442. /G221
  443. {newpath 250 0 moveto 250 1000 lineto
  444. 500 setlinewidth
  445. stroke} def
  446. /G222
  447. {newpath 750 0 moveto 750 1000 lineto
  448. 500 setlinewidth
  449. stroke} def
  450. /G223
  451. {newpath 500 500 moveto 500 1000 lineto
  452. 1000 setlinewidth
  453. stroke} def
  454. /G169
  455. {newpath 10 0 moveto 10 200 lineto
  456. 510 200 lineto
  457. 20 setlinewidth
  458. stroke} def
  459. /G372
  460. {newpath} def
  461. /G376
  462. {newpath 150 150 moveto 150 350 lineto
  463. 200 setlinewidth
  464. stroke} def
  465. end
  466. /BuildChar
  467. { 0 begin
  468. /char exch def
  469. /fontdict exch def
  470. /charname fontdict /Encoding get char get def
  471. fontdict begin
  472. Metrics charname get 0
  473. BBox charname get aload pop
  474. setcachedevice
  475. CharacterDefs charname get exec
  476. end
  477. end
  478. } def
  479. /BuildChar load 0 3 dict put
  480. /UniqueID 1 def
  481. end
  482. /BoxesAndBullets exch definefont pop
  483. statusdict begin statusdict /waittimeout 0 put end 
  484. 1000 dict begin
  485. /reencsmalldict 12 dict def
  486. /ReEncodeSmall
  487. {reencsmalldict begin
  488. /newcodesandnames exch def
  489. /newfontname exch def
  490. /basefontname exch def
  491. /basefontdict basefontname findfont def
  492. /newfont basefontdict maxlength dict def
  493. basefontdict
  494. {exch dup /FID ne
  495. {dup /Encoding eq
  496. {exch dup length array copy newfont 3 1 roll put}
  497. {exch newfont 3 1 roll put} ifelse }
  498. {pop pop} ifelse } forall
  499. newfont /FontName newfontname put
  500. newcodesandnames aload pop
  501. newcodesandnames length 2 idiv
  502. {newfont /Encoding get 3 1 roll put} repeat
  503. newfontname newfont definefont pop end } def
  504. /rs {curfont cvx exec} def
  505. /propf
  506. {
  507. /lb {gsave /BoxesAndBullets findfont ptsize scalefont setfont fs
  508. grestore ptsize 0 rmoveto} def
  509. /lsb {gsave /BoxesAndBullets findfont ptsize scalefont setfont fs
  510. grestore ptsize 7.13 mul 10 div 0 rmoveto} def
  511. /ls {/Symbol findfont ptsize scalefont setfont fs rs} def
  512. /ls2 {/Symbol findfont ptsize scalefont setfont fs rs} def
  513. /c236 {gsave (P) fs grestore
  514. gsave (t) 4 scl -1 scl rmoveto .6 scl .6 scl scale fs grestore
  515. ptsize 6 mul 10 div 0 rmoveto} def
  516. /c253 {gsave (\061) .5 .5 scale 0 8 scl rmoveto fs grestore
  517. gsave (\062) .5 .5 scale 8 scl 0 rmoveto fs grestore
  518. gsave 7 scl 8 scl rlineto .1 scl setlinewidth stroke grestore
  519. ptsize 2 mul 3 div 0 rmoveto} def
  520. /c254 {gsave (\061) .5 .5 scale 0 8 scl rmoveto fs grestore
  521. gsave (\064) .5 .5 scale 8 scl 0 rmoveto fs grestore
  522. gsave 7 scl 8 scl rlineto .1 scl setlinewidth stroke grestore
  523. ptsize 2 mul 3 div 0 rmoveto} def
  524. /c375 {gsave (\062) .6 .6 scale 0 6 rmoveto fs grestore
  525. ptsize 3 div 0 rmoveto} def
  526. /c376 {gsave (U) lsb grestore
  527. ptsize 3 div 0 rmoveto} def
  528. } def
  529. /nonpf
  530. {
  531. /lb {gsave /BoxesAndBullets findfont ptsize scalefont setfont ptsize
  532. .06 mul 1.0 scale fs grestore ptsize .6 mul 0.0 rmoveto rs} def
  533. /lsb {gsave /BoxesAndBullets findfont ptsize scalefont setfont ptsize
  534. .06 mul 1.0 scale fs grestore ptsize .6 mul 0.0 rmoveto rs} def
  535. /ls {gsave /Symbol findfont ptsize scalefont setfont dup stringwidth pop 6.0
  536. exch div 1.0 scale fs grestore ptsize .6 mul 0.0 rmoveto rs} def
  537. /ls2 {gsave /Symbol findfont ptsize scalefont setfont dup stringwidth pop 6.0
  538. exch div 1.0 scale fs grestore ptsize .6 mul 0.0 rmoveto rs} def
  539. /c375 {gsave (\062) .6 .6 scale 0 6 rmoveto fs grestore
  540. ptsize .6 mul 0 rmoveto} def
  541. /c376 {gsave (U) lsb grestore
  542. ptsize .6 mul 0 rmoveto} def
  543. /c236 {gsave (P) fs grestore
  544. gsave (t) 4 scl -1 scl rmoveto .6 scl .6 scl scale fs grestore
  545. ptsize .6 mul 0 rmoveto} def
  546. /c253 {gsave (\061) .5 .5 scale 0 8 scl rmoveto fs grestore
  547. gsave (\062) .5 .5 scale 8 scl 0 rmoveto fs grestore
  548. gsave 7 scl 8 scl rlineto .1 scl setlinewidth stroke grestore
  549. ptsize .6 mul 0 rmoveto} def
  550. /c254 {gsave (\061) .5 .5 scale 0 8 scl rmoveto fs grestore
  551. gsave (\064) .5 .5 scale 8 scl 0 rmoveto fs grestore
  552. gsave 7 scl 8 scl rlineto .1 scl setlinewidth stroke grestore
  553. ptsize .6 mul 0 rmoveto} def
  554. } def
  555.  
  556. /pcwv [
  557. 8#200 /Ccedilla
  558. 8#201 /udieresis
  559. 8#202 /eacute
  560. 8#203 /acircumflex
  561. 8#204 /adieresis
  562. 8#205 /agrave
  563. 8#206 /aring
  564. 8#207 /ccedilla
  565. 8#210 /ecircumflex
  566. 8#211 /edieresis
  567. 8#212 /egrave
  568. 8#213 /idieresis
  569. 8#214 /icircumflex
  570. 8#215 /igrave
  571. 8#216 /Adieresis
  572. 8#217 /Aring
  573. 8#220 /Eacute
  574. 8#223 /ocircumflex
  575. 8#224 /odieresis
  576. 8#225 /ograve
  577. 8#226 /ucircumflex
  578. 8#227 /ugrave
  579. 8#230 /ydieresis
  580. 8#231 /Odieresis
  581. 8#232 /Udieresis
  582. 8#240 /aacute
  583. 8#241 /iacute
  584. 8#242 /oacute
  585. 8#243 /uacute
  586. 8#244 /ntilde
  587. 8#245 /Ntilde
  588. 8#233 /cent
  589. 8#234 /sterling
  590. 8#235 /yen
  591. 8#255 /exclamdown
  592. 8#370 /ring
  593. 8#371 /bullet
  594. ] def
  595. /scl {ptsize mul 12 div} def
  596. /c043 {(#) fs} def
  597. /c200 {(\200) fs} def
  598. /c201 {(\201) fs} def
  599. /c202 {(\202) fs} def
  600. /c203 {(\203) fs} def
  601. /c204 {(\204) fs} def
  602. /c205 {(\205) fs} def
  603. /c206 {(\206) fs} def
  604. /c207 {(\207) fs} def
  605. /c210 {(\210) fs} def
  606. /c211 {(\211) fs} def
  607. /c212 {(\212) fs} def
  608. /c213 {(\213) fs} def
  609. /c214 {(\214) fs} def
  610. /c215 {(\215) fs} def
  611. /c216 {(\216) fs} def
  612. /c217 {(\217) fs} def
  613. /c220 {(\220) fs} def
  614. /c221 {(\361) fs} def
  615. /c222 {(\341) fs} def
  616. /c223 {(\223) fs} def
  617. /c224 {(\224) fs} def
  618. /c225 {(\225) fs} def
  619. /c226 {(\226) fs} def
  620. /c227 {(\227) fs} def
  621. /c230 {(\230) fs} def
  622. /c231 {(\231) fs} def
  623. /c232 {(\232) fs} def
  624. /c233 {(\233) fs} def
  625. /c234 {(\234) fs} def
  626. /c235 {(\235) fs} def
  627. /c237 {(\246) fs} def
  628. /c240 {(\240) fs} def
  629. /c241 {(\241) fs} def
  630. /c242 {(\242) fs} def
  631. /c243 {(\243) fs} def
  632. /c244 {(\244) fs} def
  633. /c245 {(\245) fs} def
  634. /c246 {(\343) fs} def
  635. /c247 {(\353) fs} def
  636. /c250 {(\277) fs} def
  637. /c251 {(T) lsb} def
  638. /c252 {(\330) ls} def
  639. /c255 {(\255) fs} def
  640. /c256 {(\253) fs} def
  641. /c257 {(\273) fs} def
  642. /c260 {.75 setgray (1) lb 0 setgray} def
  643. /c261 {.5 setgray (2) lb 0 setgray} def
  644. /c262 {.25 setgray (3) lb 0 setgray} def
  645. /c263 {(a) lb} def
  646. /c264 {(b) lb} def
  647. /c265 {(c) lb} def
  648. /c266 {(d) lb} def
  649. /c267 {(e) lb} def
  650. /c270 {(f) lb} def
  651. /c271 {(g) lb} def
  652. /c272 {(h) lb} def
  653. /c273 {(i) lb} def
  654. /c274 {(j) lb} def
  655. /c275 {(k) lb} def
  656. /c276 {(l) lb} def
  657. /c277 {(m) lb} def
  658. /c300 {(n) lb} def
  659. /c301 {(o) lb} def
  660. /c302 {(p) lb} def
  661. /c303 {(q) lb} def
  662. /c304 {(r) lb} def
  663. /c305 {(s) lb} def
  664. /c306 {(t) lb} def
  665. /c307 {(u) lb} def
  666. /c310 {(v) lb} def
  667. /c311 {(w) lb} def
  668. /c312 {(x) lb} def
  669. /c313 {(y) lb} def
  670. /c314 {(z) lb} def
  671. /c315 {(A) lb} def
  672. /c316 {(B) lb} def
  673. /c317 {(C) lb} def
  674. /c320 {(D) lb} def
  675. /c321 {(E) lb} def
  676. /c322 {(F) lb} def
  677. /c323 {(G) lb} def
  678. /c324 {(H) lb} def
  679. /c325 {(I) lb} def
  680. /c326 {(J) lb} def
  681. /c327 {(K) lb} def
  682. /c330 {(L) lb} def
  683. /c331 {(M) lb} def
  684. /c332 {(N) lb} def
  685. /c333 {(O) lb} def
  686. /c334 {(P) lb} def
  687. /c335 {(Q) lb} def
  688. /c336 {(R) lb} def
  689. /c337 {(S) lb} def
  690. /c340 {(\141) ls} def
  691. /c341 {(\142) ls} def
  692. /c342 {(\241) ls} def
  693. /c343 {(\160) ls} def
  694. /c344 {(\123) ls} def
  695. /c345 {(\163) ls} def
  696. /c346 {(\155) ls} def
  697. /c347 {(\164) ls} def
  698. /c350 {(\106) ls2} def
  699. /c351 {(\121) ls2} def
  700. /c352 {(\127) ls2} def
  701. /c353 {(\144) ls} def
  702. /c354 {(\245) ls2} def
  703. /c355 {(\306) ls2} def
  704. /c356 {(\145) ls} def
  705. /c357 {(\307) ls2} def
  706. /c360 {(\272) ls} def
  707. /c361 {(\261) ls} def
  708. /c362 {(\263) ls} def
  709. /c363 {(\243) ls} def
  710. /c364 {(\363) ls} def
  711. /c365 {(\365) ls} def
  712. /c366 {(\270) ls} def
  713. /c367 {(\273) ls} def
  714. /c370 {(\370) fs} def
  715. /c371 {(\371) fs} def
  716. /c372 {(V) lb} def
  717. /c373 {(\326) ls} def
  718. /c374 {(\150) ls} def
  719. /c377 {(\040) fs} def
  720. /ptsize 10 def
  721. /Times-Roman /TRPCW pcwv ReEncodeSmall
  722. /Times-Italic /Tipcw pcwv ReEncodeSmall
  723. /Times-Bold /Tbpcw pcwv ReEncodeSmall
  724. /Helvetica /Hvpcw pcwv ReEncodeSmall
  725. /Helvetica-Bold /HBPCW pcwv ReEncodeSmall
  726. /Courier /Crpcw pcwv ReEncodeSmall
  727. /Times-Roman /TRPCW pcwv ReEncodeSmall
  728. /Symbol /Symbol-PCWrite pcwv ReEncodeSmall
  729. /2dup {dup 3 -1 roll dup 4 1 roll exch} def 
  730. /command (# ) def 
  731. /ccommand (c  ) def 
  732. /ckh {scalefont} def 
  733.  
  734. /sv {/curfont exch def} def
  735.  
  736. /#B {propf /#B sv /Tbpcw findfont 10 ckh setfont /ptsize 10 def} def
  737. /#C {propf /#C sv /TRPCW findfont 8 ckh setfont /ptsize 8 def} def
  738. /#D {propf /#D sv /HBPCW findfont 15 ckh setfont /ptsize 15 def} def
  739. /#E {nonpf /#E sv /Crpcw findfont 10 ckh setfont /ptsize 10 def} def
  740. /#F {nonpf /#F sv /Crpcw findfont 12 ckh setfont /ptsize 12 def} def
  741. /#I {propf /#I sv /Tipcw findfont 10 ckh setfont /ptsize 10 def} def
  742. /#J {nonpf /#J sv /Crpcw findfont 15 ckh setfont /ptsize 15 def} def
  743. /#P {propf /#P sv /TRPCW findfont 10 ckh setfont /ptsize 10 def} def
  744. /#Q {propf /#Q sv /TRPCW findfont 12 ckh setfont /ptsize 12 def} def
  745. /#V {propf /#V sv /Hvpcw findfont 8 ckh setfont /ptsize 8 def} def
  746. /#H { currentpoint 0 lh 4 div translate moveto .75 .75 scale} def
  747. /#h { 4 3 div dup scale currentpoint 0 lh 4 div neg translate moveto} def
  748. /#L { currentpoint 0 lh 6 div neg translate moveto .75 .75 scale} def
  749. /#l { 4 3 div dup scale currentpoint 0 lh 6 div translate moveto} def
  750. /#M { .3 setgray } def
  751. /#N {isex not {fspage} if} def
  752. /#O {/isCo true def} def
  753. /#o {/isCo false def} def
  754. /co 
  755. {stringwidth pop /width exch def
  756. lh 20 div dup mul setlinewidth
  757. /linewidth lh 4 div def
  758. width neg linewidth rmoveto
  759. width 0 rlineto gsave stroke grestore 0 linewidth neg rmoveto} def
  760. /#m { 0 setgray } def
  761. /#- {(#) fs} def
  762. /isUl false def
  763. /#U {/isUl true def} def
  764. /#u {/isUl false def} def
  765. /ul 
  766. {stringwidth pop /width exch def
  767. lh 20 div dup mul dup setlinewidth dup add /linewidth exch def
  768. width neg linewidth neg rmoveto
  769. width 0 rlineto gsave stroke grestore 0 linewidth rmoveto} def
  770. /isDU false def
  771. /#W {/isDU true def} def
  772. /#w {/isDU false def} def
  773. /DU 
  774. {stringwidth pop /width exch def
  775. lh 20 div dup mul dup setlinewidth dup add /linewidth exch def
  776. width neg linewidth neg rmoveto
  777. width 0 rlineto gsave stroke grestore 0 linewidth rmoveto
  778. /linewidth linewidth 3 mul def
  779. width neg linewidth neg rmoveto
  780. width 0 rlineto gsave stroke grestore 0 linewidth rmoveto} def
  781. /isCo false def
  782. /isSs false def
  783. /#S {/isSs true def} def
  784. /#s {/isSs false def } def
  785. /ss 
  786. {dup stringwidth pop neg lh 20 div dup mul add 0 rmoveto show} def
  787. /#R 
  788. {currentpoint lh add 3 -1 roll} def
  789. /#r 
  790. { gsave 3 1 roll currentpoint
  791. lh 20 div dup mul 6 mul sub 
  792. newpath 2dup moveto
  793. 3 1 roll 2dup exch lineto
  794. 4 1 roll 3 -1 roll 2dup exch lineto
  795. 3 -1 roll lineto
  796. pop pop closepath
  797. 1 setlinewidth
  798. stroke
  799. grestore} def
  800. /isport true def
  801. /portrait {initmatrix 22 10 translate
  802. /rm 576 def
  803. /isport true def /line sl def } def
  804. /landscape {initmatrix 90 rotate 10 -794 translate
  805. /rm 756 def
  806. /isport false def /line sl def } def
  807. /## {quit} def
  808. /#Y {/pl 84 def /lines 0 def portrait lm line moveto} def
  809. /#Z {/pl 80 def /lines 0 def landscape lm line moveto} def
  810. /#z {isport {#Y} {#Z} ifelse} def
  811. /cexecute {/ccommand exch def currentdict ccommand cvn known
  812. {ccommand cvx exec}
  813. {(*** error *** unknown character command:) = ccommand =} ifelse} def
  814. /#G 
  815. {(.) search { cexecute pop } if} def
  816. /#A 
  817. {(.) search { cvi 72 exch div /lh exch def pop } if} def
  818. /#a 
  819. {(.) search { cvi 72 exch div 0 rmoveto pop } if} def
  820. /isex false def   
  821. /#T {/isex true def} def
  822. /#t {/isex false def} def
  823. /lh 12 def
  824. /lm 0 def
  825. /sl 756 def
  826. /line sl def
  827. /lines 0 def
  828. /pl 84 def
  829. /buffer 2000 string def
  830. /final {{dup (*end) eq {false} {true} ifelse} {false} ifelse} def
  831. /fspage {showpage isport {#Y} {#Z} ifelse} def
  832. /fs 
  833. { isex {cvx exec} { dup show
  834. isUl {dup ul} if
  835. isDU {dup DU} if
  836. isCo {dup co} if
  837. isSs {dup ss} if
  838. pop} ifelse} def
  839. /execute { command 1 3 -1 roll put currentdict command cvn known
  840. {command cvx exec}
  841. {(*** error *** unknown command:) = command =} ifelse} def
  842. /strip { 
  843. (#) search
  844. {fs pop
  845. dup length 1 gt
  846. {dup 0 get exch dup length 2 sub 2 exch getinterval exch}
  847. {0 get () exch}
  848. ifelse execute}
  849. {fs () } ifelse
  850. } def
  851. /shbuf 
  852. {{dup length 0 le {exit} if strip } loop pop } def
  853. /IncLine {line lh sub /line exch def
  854. lines 1 add dup pl ge
  855. {pop 0 fspage /line sl def} if /lines exch def} def
  856. /create {lm line moveto shbuf IncLine} def
  857. /al {input buffer readline pop create} def 
  858. /input (%stdin) (r) file def
  859. /*start {propf /line sl def /lines 0 def #E #Y 
  860. {al} loop } def
  861. *start
  862.